home *** CD-ROM | disk | FTP | other *** search
/ Explorers of the New World / Explorers of the New World.iso / pc / shared.dir / 01984_TRANSITION.ls < prev    next >
Encoding:
Text File  |  1995-09-06  |  513 b   |  19 lines
  1. on getTransitionNumber whichTransition
  2.   set allTransitions to field "transitions"
  3.   repeat with i = 1 to the number of lines in allTransitions
  4.     if line i of allTransitions = whichTransition then
  5.       return i
  6.     end if
  7.   end repeat
  8. end
  9.  
  10. on transitionRoll whichTransition, time, chunkSize
  11.   set theTransition to getTransitionNumber(whichTransition)
  12.   ProcessFrame()
  13.   if voidp(chunkSize) then
  14.     puppetTransition(theTransition, time)
  15.   else
  16.     puppetTransition(theTransition, time, chunkSize)
  17.   end if
  18. end
  19.